home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / TestFiles / TestIText < prev    next >
Text File  |  2000-05-08  |  823b  |  36 lines
  1. scr <- Screen   new: 'TestScreen'
  2. scr setScreenModeID: 16r40D20001
  3.  
  4. scr open
  5.  
  6. win <- Window new: 'TestWindow'
  7.  
  8. win setFlags:       16r100F "ACTIVATE + SIZING + DRAG + DEPTH + CLOSE" 
  9. win setIDCMPFlags:  16r200  "CLOSEWINDOW"
  10.  
  11. win openOnScreen:  'TestScreen'
  12.  
  13. crs <- Colors new: 'TestWindow'
  14.  
  15. crs loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
  16. crs setWindowColorReg: 1  red: 12 green: 12 blue: 12
  17. crs setWindowColorReg: 14 red: 0  green: 0  blue: 8
  18.  
  19. itxt <-IText new:   'TestIText'
  20. itxt setIText:      'Testing IntuiText primitives...'
  21. itxt setPens:        14   @ 1
  22. itxt setITextOrigin: 100 @ 80
  23. itxt registerTo:    'TestWindow'
  24.  
  25. win  printIText:   'TestIText' at: 30 @ 20
  26.  
  27. returnValue <- String new
  28. returnValue <- win handleIntuition
  29.  
  30. ('HandleIntuition returned ', returnValue) print
  31.  
  32. itxt remove
  33.  
  34. win  close
  35. scr  close
  36.